home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -jumping man (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  895 b   |  24 lines
  1. 10 PRINT"[147][142][150]                                        "
  2. 20 POKE53281,0:POKE53280,0:F=16
  3. 30 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+1,60:POKES+5,219:POKES+15,28
  4. 32 POKES+24,15
  5. 50 P$(1)=" [213][195][201] ":L$="     "
  6. 52 P$(2)="[215][202][195][203][215]"
  7. 54 P$(3)="[202][195][219][195][203]"
  8. 56 P$(4)=" [213][177][201]"
  9. 60 P$(5)=" [194] [194]"
  10. 62 P$(6)=" [215] [215]"
  11. 65 PRINT"[153]":FORA=1TO6:PRINTTAB(F);P$(A):NEXT
  12. 70 A=INT(RND(1)*12):IFA<4ANDF>1THENJ=-1:GOTO300
  13. 75 IFA<5ANDF>1THENJ=-1:GOTO300
  14. 80 IFA>7ANDF<34THENJ=1:GOTO300
  15. 85 IFA=5ORA=6THEN315
  16. 90 GOTO70
  17. 300 POKES+24,0:PRINT"[153]":FORA=1TO6:PRINTTAB(F);L$:NEXT:F=F+J:J=0:POKES+24,15:GOTO65
  18. 315 FORA=6TO3STEP-1:PRINT"":POKES+24,0:FORB=1TOA:PRINT"";:NEXT:POKES+24,15:FORB=1TO6:PRINTTAB(F);L$
  19. 320 NEXT:POKES+24,0:PRINT"":FORB=1TOA-1:PRINT"";:NEXT:POKES+24,15:FORB=1TO6:PRINTTAB(F)P$(B):NEXT:NEXT
  20. 325 PRINT""TAB(F);L$
  21. 330 FORA=2TO5:PRINT"":POKES+24,0:FORB=1TOA:PRINT"";:NEXT:POKES+24,15:FORB=1TO6:PRINTTAB(F);L$
  22. 340 NEXT:POKES+24,0:PRINT"":FORB=1TOA+1:PRINT"";:NEXT:POKES+24,15:FORB=1TO6:PRINTTAB(F)P$(B):NEXT:NEXT
  23. 350 POKES+4,18:POKES+24,0:POKES+24,15:GOTO70
  24.